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A PROGRAM LISTINGS A_X 


1 . SCOPE 


1.1 GENERAL 

This document is the "as-built" design specification of the 
CAMS/CAS Interface Tape Report Generation Program for LACIE 6A. 





2 . APPLICABLE DOCUMENTS 


• TIRP 77-0040 

• Specification for the CAMS/CAS Interface Tape Report 
Generation Program - LEC-9151 

• CAMS/CAS Interface Control Tape format specification in 
Earth Resources Data Format Control Book Volume 1 (PHO- 
TR543/ Rec- A. Change 3) 

• "As-Built" Design Specification of the CAMS/CAS Interface 
Tape Report Generation Program - LEC 9882 

• Acceptance Test Specification for CAMS/CAS Interface Tape 
Report Generation Program for LAC IE 6A - LEC 11028 

• CAM3/CAS Interface Tape Printout after LACIE 6A JSC Memo- 
randum, SF4-77-7-13, 7/21/77. 



3. SYSTEM DESCRIPTION 


3.1 HARDWARE DESCRIPTION 
N/A 


3.2 SOFTWARE DESCRIPTION 

The purpose of this program is to produce CAMS reports from 
data on the CAMS/CAS interface tape. 

3.2.1 SOFTWARE COMPONENT NO, 1 (BIASRP) 

The main program DIASRP reads control cards, locates segment data 
on the input tape and calls subroutines to generate requested 
reports. 


3. 2. 1.1 Linkages 

BIASRP calls subroutines CDRED, CAMREC, SEGEXT, CLURES, STDATA, 
and DOTRAY. 

3. 2. 1.2 Interfaces 
N/A 

3 . 2 . 1 . 3 Inputs 

BIASRP control cards are: SEGMENT XXXX, RECORD ID XXXXXX 

XXXXXX, ALL, END. CAM/CAS interface tape records are inputs to 
BIASRP. See reference 3 in section 2, for record formats. 

3. 2. 1.4 Outputs 

An error message is output indicating a bad data card. If a 
requested segment is not on the input tape, the program writes 
a message to that effect. 



3. 2. 1.5 Storage Requirements 
Total space allocated is 2330 bytes. 


3. 2. 1.6 Description 

BIASRP is the CAMRPT main program. The program sets the printout 
option indicator PRTOUT to 0 initially. In this mode the output 
of some reports is conditional. On the first call to tape read 
subroutine CDRED, the program reads two data cards specifying the 
device code (M or X) and the unit number (0 or 1) . BIASRP next 
reads a program control card and tests the first non-blank 
character for one of the followings S, R, h, or E. If the card 
is blank or the first character is not one of the above # the 
program prints an error message on the line printer ans stops. 

The action taken for each control card is given below. Note 
that if a control card other than E is read in, the printout 
option indicator PRTOUT is set to 1. This is the option to out- 
put all reports, including conditional reports. 

• S - Option indicator PRTOUT Is set to 1. The program obtains 
the segment number from the input card. The program searches 
the input tape for a recognition segment record whose segment 
number matches the control card segment number. If a match is 
not found, a message is printed and the program goes to read 
the next control card. If a match is found, the CAMRPT re- 
ports for the segment are generated. The program then reads 
the next control card. 

« R - The action taken is the same as for the S card above, 
except that the record identification number is used instead 
of the segment number. 

•A - Option indicator PRTOUT is set to 1. Beginning with the 
segment on the the tape at which the tape is currently po- 
sitioned, the program generates CAMRPT reports for that seg- 



menfc and all the following segments. When the second tape 
end of file, indicating end of data, is reached, the program 
rewinds the tape and returns to read the next control w^.rd , 

• E - If the printout option indicator PR^OUT is 0, the program 

generates leports in the limitcid printout node, rewinds €ie tar«, and then 
stops. If PRiX5OT is 1, the tape is ravound and the program stops. 

To generate reports for a segment the program first calls CAMREC 
to read and process recognition segment records. Report output 
takes place in two stages. The standard report output is written 
to the line printer (unit 6) . Conditional report output is 
written to disk (unit 3) . The standard output from CkMREC is 
headed CAMS Interface Report, and the conditional output, Clas- 
sification Data. 

After CAMREC, the program reads the segment summary record and 
calls SEGEXT. Data from the segment summary record is saved in 
COMMON block CBIAS. This data includes bias correction factors 
which are used in DOTRAY calculations. BIASRP next calls CLURES 
to process the cluster match recoras and to generate the condi- 
tional Cluster Report. Next the Statistics Report, also condi- 
tional, is generated from statistics records. Finally DOT subset 
rei'^ords are read in and processed by subroutine DOTRAY, The 
standard report output from DOTRAY consists of DOT Label/Clas- 
sification tables and the Bias Correction Report. 

In the limited printout mode the decision as to whether or not 
to output CAMRRT conditional reports is not made until the per- 
centages of correctly classified Dots (PCC-1 and PCC-2) are 
calculated in subroutine DOTRAY, if either PCC-1 or PCC-2 is 
less than 80% then the conditional reports are read from disk 
and written to the line printer . In the full printout mode 
(PRTOUT ~ 1) the conditional reports are always retrieved from 
disk and printed out. 


3,2, 1,7 Flowcharts 


See Plow Diagram 1, 

3, 2,1, 8 Listing 
See Appentiix A 

3,2.2 SOFTWARE COMPONENT NO. 0 (CAMREC) 

This program processes classification results contained in 
recognition segment records, outputs the CAMS Interface Report 
and the conditional Classification Data report, 

3 . 2 . 2 . 1 Linkages 

CAMREC is called by BIASRP and calls subroutines CAMHDG. CPIPO, 
MV, and CORED. 

3. 2. 2. 2 Interfaces 
N/A 

3. 2. 2. 3 Inputs 

Recognition segment records , containing subclass a priori 
and threshold values, and subclass related classificabion 
results, 

3 . 2 . 2 . 4 Outputs 

CAMS Interface Report and a Classification Data report. 


3. 2. 2. 5 Storage Roguirementa 
Total space allocated is 1636 bytes. 


3 . 2 . 2 * 6 Descriptio n 

CAMREC is called with the first recognition segment record 
for the segment to be processed residing in array IBUF. 

CAMREC first calls CAMHDG to print out the report heading/ 
the segment number/ record ID/ and acquisition dates. Title 
and column headings for the classification section of the 
report are written out by CAMREC. Processing of classification 
results begins by setting the location in array IBUF of the 
first subfield containing subclass related results. Subfield 
contents are accessed by calling CPIPO. CPIPO returns the class 
portion of the subclass name and the counts PI and PO of pixels 
classified into, and thresholded out of the subclass. If the 
first character of the class name is X, PI is added to the X 
category pixel count. If the category is W, for wheat, then the 
count for the first wheat class is set to PI and the wheat class 
name is saved in CLIST. PO is added to the total of pixels 
thresholded, TC, in the COMMON block CBIAS. 

In processing for the second, and subsequent subclasses, the 
program calls CPIPO to get the next class name, checks to see 
if it is wheat, and, if so, compares it to the last class name 
in CLIST. If it is not the same, the new name is saved in 
CLIST and the class index is incremented by 1, This causes 
wheat class pixel count PI to be tallied in the next results 
array location. 

3.2.2. 7 Flowcharts 
N/A 

3. 2. 2. 8 Listing 
See Appendix A. 

3.2.3 SOFTWARE COMPONENT NO. 3 (SEGEXT) 



This program saves data contained in the segment summary record. 


3.2. 3. 1 Linkages 

SE'iSPXT is called by BIASRP, 

3. 2. 3. 2 Interfaces 
N/A 

3. 2. 3. 3 Inputs 
Segment summary record. 

3. 2. 3. 4 Outputs 
None. 

3. 2. 3. 5 Storage Requirements 
Total space allocated is 248 bytes. 

3 . 2 . 3 . 6 Description 

SEGEXT is called if the main program reads a segment summary 
record during report generation, SEGEXT saves the five possible 
category labels in COMMON array LABEL, Population data is saved 
in NI. Bias correction factors and percentages are decoded and 
saved in other COMMON block CBIAS arrays, 

3 . 2 . 3 . 7 Flowcharts 
N/A 


3. 2. 3. 8 Listing 


See Appendix A. 


3.2.4 SOFTWARE COMPONENT NO. 4 (CLURES) 


This program processes cluster match and distance records and 
generates the conditional cluster report. 

3. 2. 4.1 Linkages 

CLURES is called by BIASRP. It calls CDRED and BNT. 

3. 2. 4. 2 Interfaces 
N/A 

3. 2. 4. 3 Inputs 

Cluster match and distance records. 

3 . 2 . 4 . 4 Outputs 
Cluster report. 

3 . 2 . 4 . 5 Storage Requirements 
Total space allocated is 587 bytes. 

3 . 2 . 4 . 6 Description 

CLURES is called if the main program reads a cluster match 
record during report generation. The program first sets the 
clustering channel list array. The variables ALSETS, total num- 
ber of clusters, and SETRK, number of clusters in the record, 
are decpded. ALSETS is written out as clusters generate. For 
each cluster the program writes out the cluster name, the sub- 
class/dot match name and the L2 match distance. If there are 
more the 40 cluster sets, the program reads a second cluster 
match record. The clustering channel list is written at the end 
of the report. 



3. 2. 4. 7 


Flowcharts 


See Plow Diagram 2. 

3 ,2 .4 ,8 Listing 
See Appendix h, 

3.2,5 SOFTWARE COMPONENT NO. 5 (STDATA) 

This subroutine formats and outputs field and subclass sta- 
tistics data. 


3. 2. 5.1 liinkages 

STDATA is called by GAMRPT. STDATA calls subroutines KNT, 
MDTTL, MEAN, POP, CDRED, SNAME, PNAMB, STDMP, and BNT . 

3 . 2 . 5 . 2 Interface s 
N/A 

3 . 2 . 5 . 3 Inputs 

The statistics record, containing, for fields or for sub- 
classes, the population and values of the mean and standard 
deviation by channel. 

3 . 2 . 5 . 4 Outputs 

The statistics report. 

3.2.5. 5 Storage Requirements 

Space allocated, including subroutines, is 2197 bytes . 


3. 2. 5. 6 Description 

STDATA is called from BIASRP. By means of decode statements, 
the program converts several variables from input character 


format in IBllF to intogera. Tho variabloo are ALSETS, the total 
number of statistics sots? EE^SR^ tho number of sots in the current 
record , and NGII, the number of ohannela. STDATA calls subroutines 
to move data from input record subfielde to print buffers. SNAME 
and ENAME move name data and insert SUBGL and PIELD designations 
in the print buffer. POP is oalled to move population data. 

MDOTL is called to supply column headings for means and standard 
deviations, which are transferred to a print buffer by MEAE. 

MEAN also pats decimal points whore needed. The variable DSETS, 
set to 5, controls the number of statistics sets to bo accvmvu- 
lated before outputting the print buffers. When the current 
record statistics sets counter reaches SETSR, and AbSBTS sets 
have not yet been processed, stdata calls CORED to read the 
next statistics record from tape. 

3. 2. 5. 7 Flowcharts 

N/A 

3. 2. 5. 8 lii sting 
See Appendix A. 

3,2.6 SOFTWARE COMPONENT NO. 6 (DOTRAy) 

This progivira processes DOT mibset records and generates DOT 
label/classification tables and the bias correction report. 

3. 2. 6,1 li i nkag es 

tKS»e;KiH.niiji«i>Mii»»'mii 'iiMirw 

DOTiyvY is called by BTAERP. It calls CORED. 


3, 2. 6. 2 Interfaces 


3. 2. 6. 3 Inputs 


DOT subset records 

3 , 2 . 6 . 4 Outputs 

Type 1 and 2 label/classification tables and the bias correction 
report . 


3. 2. 6. 5 Storage Requirements 
Total space allocated is 2642 bytes. 

3 . 2 . 6 . 6 Description 

DOTRAY is called by BIASRP after reading in the first DOT subset 
record for the current segment. DOTRAY obtains category labels 
for Cl and C2 (as W for Wheat) from the common block CBIAS. 

The program locates the first DOT entry in the input buffer IBUP 
and sets variables TYPE (1) , LBLED (1) , and CLASPY (1) to the 
first DOT type, user supplied label, and classification label. 
The variables are set for the second DOT from data in the next 
IBUP Dot Entry, and so on. After DOT entries for the first 
record (15 DOTS) have been accessed the program calls CDRED to 
read in the next DOT record. The process is repeated until the 
information for all 209 DOTS has been read in. 

Next DOTRAY generates an 11 by 19 matrix of user label/clas- 
sification entries for type 1 and type 3 DOTS. A similar Matrix 
is generated for type 2 DOTS which also includes type 0 DOTS. 
DOTS with a classification label of DV or DO do not appear 
in either matrix. 

After varibles listed below have been initialized to 0, the pro- 
gram tests the data for each DOT for the condition indicated, 
and increments the variable if the condition is satisfied. It 


is understood in every Gaso that the conditions apply to DOTS 
which are labeled, that is, LBLED (I) is not blank, and to 
DOTS not classified as DU or DO. 




NTYPl - The number of DOTS which are either type 1 or type 3 . 

NTYP2 - The number of typo 2 DOTS 

NAII “ The number of type 1 type 3 DOTS whose label and 

classification are the same. 

NGIJ - The number of type 1 and type 3 DOTS whose label and 
classification are not the same. 

NOLO - The number of typo 2 DOTS which are both labeled 
and classified. 

NBII - The number of type 2 DOTS whose label and classi- 
fication are the same. 

WHIJ - The number of type 2 DOTS whose label and classifi- 
cation are not the same. 

LN(1) - For 1 “ 1,2,3, the number of type 2 DOTS classified 
in category Cl, 

LBCl - The nunxber of type 2 DOTS labeled Cl. 

LBC2 - The number of type 2 DOTS labeled C2 . 

LMl - The number of type 2 DOTS labeled Cl and classified 

in either Cl or C2. 

I.M2 - The number of type 2 DOTS labeled C2 and classified 
in either Cl or C2 . 

I)M3 - The number of typo 2 DOTS both labeled and classified 
C3 . 


The program computes the corrected percentages, variances, and 
other parameters for categories Cl and C2, and for the combined 
Cl and C2 , or grain category. The equations for these calcu- 


lations are contained in the requirements document, JSC 
Memorandum SP4-77-7-13. The calculations are output as the Bias 
Correction Report. 

After the Report has been generated, if the printout option 
argument PRTOOT is 1, then a return is made to the main program. 
If PRTOUT is not 1, then pcc- 1 and PCC-2 Values (percentages of 
type 1 and type 2 correctly classified DOTS) are tested. If 
either value is less than 80%, then PRTOUT is set to 2, to 
indicate to the main program that the conditional CAMRPT reports 
are to be read from disk and output to the line printer. 

3. 2. 6. 7 Flowcharts 
See Plow Diagram 3. 

3. 2. 6. 8 Listing 


See Appendix A. 
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4, OPEKATING PROCEDURE 


4.1 GENERA! 

CAMRPT is an RSX-llD Batch progt'an^ which roads a CAMS/CAS Inter- 
face tape and generates a series of reports which are output on 
the lino printer. It requires data card inputs. 

4.2 DECK SET UP 

Two data cards define the input tape drive and unit number. The 
card formats are: 

M or X (tape drive) 

0 or 1 (tape unit) 

Entries are keypunched in column 1. To execute the CAMRPT default 
option for a limited printout of reports, an END card must follow 
the two data cards above. If the option for a full output of all 
reports is desired, the control card sequence is: 

A (for all reports ) 

END 

If the user desires to obtain the output for only a single seg- 
ment on the input tape, segment 9681 for example, the control 
card sequence iss 

S 9681 

END 

To obtain the output for segment 9681, and all sega\ents following 
9681, the control card sequence is; 

S 9681 

A 

END 

The above option is used when there is a bad segment on the input 


to obtain the output tor segments following the bad segment. 


fha Batch deck set up for the GMlRPT default option using input 
tape unit MTO is as follows: 

$ JOB/NAME«GMRPO?/HaR/LIMIT*9 9 ACCQUNT~5 050 
§DATA 
M 
0 

END 

$EOD 

$RUN CAMRPT 
$EOJ 


run the program, mount the GAMS/CAS Interface tape and enter 
a mount message. 

For MTO the message would be: 

MGR > MOU MT0t/CHA=[FOR] (CR) 

Then load the card reader with the CAMRI?T Batch dock and enter 
BAT CR;, to read in the deck. 


APPENDIX A 


LISTING 


HF0RTHAN IV-P|,US V03-0^ _ _ _ 10>,lplU O7-0CT».77 P 

BIASRP.FTN /TR|Rl3CKS/W«* ‘ 


0001 

0002 
0003 

■ m 

I^^PLICIT INTeGeR(A-H) 
BYTg pBUF(120) 
U2G1CAU*! IBUF(3060) 

^ -v; ^ 

0004 

0005 


lrgicaL.»i cchar 

Li^GlCAl*! CD(80) 


0006 

0007 

0008 

0009 

0010 
0011 

• «: m -1 * 

U3GlCAL«i C2VTR(4> 

LRniCAUoi senN?(4 ) ,recrrd( 12> 
C2*^M2\/SF.G/SE:GN0 
C5!MPKN'/PCK'T/'UNe,PAGe 
DATA cENTR/1HS,1NH,1HAi1HE/ 
PRT{?UTsQ 


0012 

0013 


KsO 
R = 0 

'9^ 

0014 

0015 


FILEaO 

TAPN0bO 

0016 

0017 


call CDRED(inUF,RinLE“) 
R = 1 


0016 

c 

CALL CDREDdBUF/R.nLF.) 
DECDDEH.IOOi IRUr(44) ) tapnp 


0019 

0020 

100 



FORMAT (I 4) 
CeNTiNUE 


0021 

0022 


R a 1 

READ(l/99) CD 


0023 

0024 

99 

Ff>HMAT<80Al) 
D0 20 Ial,72 


0025 

0026 

20... . 

IF(CD( D'.NE, • » ) G0 T0 2l 

crntinue 


0027 

0028 

21 

G0 T0 '7 
CCHaRsCD< I ) 


0029 

0030 


02 1 Ksl,4 

IF(CP^JTR(K) lEQ’.CCHAR) G0 J2 2 


0031 

0032 

1 

22 

crntinOe'*' 

CDMTINUE 


0033 

0034 

88 

write (6, 68) 

F2RMAT< 'iMOXi ♦ BAD DATA CaRD ') 


0035 

0036 

16 

STFP 

FILE=0 


0037 

0038 


R = '*l 

CAl-L CDREDdBUFiRiFILE) 


0039 

0040 


IF(bRT2UT,EQ,0) ST0P 
G2 T0 15 


0041 

0042 

0043 

0044 

2 

35 

CDMTIN'UE 

IFUAPN0,FQ,O) CECRDEMiloyMRUF (44) ) TAPN0 

G0 T2(31,31,34,35)K ' * ' 

C2MTIWUE 

0045 

0046 


IF(PRT0UT,EQ.1) G0 T0 5 
K = 3 


0047 

0048 

.5 

G2 T*0 6 

IF(FILE,EO;0) ST2P 


0049 

0050 


R = -l 

call cDREDHRUFiRiFILE) 


0051 

0052 

31 

STGP 

C2WTIN|UE 


0053 

0054 


PRT0UTS1 
F = 0 


0053 


, 



F 0 RTRAN 

tV-PLUS 

V 02-04 

10 

OJ ASRP, 

FTN 

/TRJPU^CKS/V* 

R 

0056 

4 

1 F(CD( DVnE, 

' ') 

0057 


1 = 1+1 


0058 


1 F( I ,gT, 72 > 

GP T 0 

, 0059 


G 0 TP 4 

B" •*> * •’'» 1 

0060 

3 

F = F*l 


^ 0061 ... _ 


IF<F..,EG,i)_ 

G 0 TP 

0062 


IMKiEO*!) 

G 0 TP 

0063 


IF(F,e 0 . 2 ) . 

G 0 TP 

0064 


G 0 TP 8 

• 

.0065 

7 

IfiI + 1 


0066 


IF(CD( I ) .EO, 

' • ) 

0087 


.JF.U.GT, 7 ^)„ 


0068 


G 0 TP 



C 

write ( 9 * 102 ) 

(CD( 

0069 

8 

C 3 K'TUUE 


0070 


IF(K.E«. 2 ) . 

G 0 TP 

0071 


JJ = 1 


0072 


. ne,. 11 .. j=ii. 


0073 


S£GN’?( Jj)sCD 

(J) 

..0074 


J J *• J J f i 


0075 

11 

CONTINUE 


0076 


G 0 TP 13 

4 

0077 

12 

C 0 NT inle 



0078 

0079 

0080 
0081 
0062 

0083 

0084 
*0085 
0086 

0087 

0088 

0089 

0090 
'0091 
0092 
“0093 
0094 


14 

13 

41 


■*09’ 

■47 


10112111 

G'a'TO' 


22 


00 TO 4 



O7"0CT-77 


PAGK 2 


12 


D3 14 J=l,i*12 

riFsJ*-!-*-! __ 

!F<DIF .S0.7)’ Gk*.‘T0T4 

R6C0Op< JJ)=CD(J) 

kU “ J J + 1 
O0NT INUE 

comtinOe 
GO TO 47 
c0N)’tinUe 

CAUL C0RF.D( IFUF,9,F ILE) 
IF(FlLf^.ur‘. 2) ■ G'.' T0 47 
write: (6, 89) 

F 3 R H A T ( 1 H U Tl ' 0 XT S (. G M E 'N' T ■ 
G0 TP 18 

c0Nt1u'Ue * 

RsR + l 


""0‘f n'R keCCR'd Td“'n?T 


C 

0095 42 

0096 

0097 

0098 

0099 

0100 

’ 0101 _ 43 

’■""0102 

C 

" 0103 45 

0104 

0105 48 

0106 34 
”0107 

0108 


■ WRItE(8, 4 2)"' R “ 

F0RHAtUOXi ' Rs ' , 14) 

IF( i RljFd')', NE . 'R' ) G'P""fc-''“’?l'""' 

IF< lUuF(?)'.Gr , '1* ) 00 TP 'IX 

IHK.EP,?) 00 T!> 16 

1)0 43 1=1*4 

IF(sEgN 0(I ) ,NE". inUF(147*l ) > r/l TP 41 
CPK'TInUE 

■sruG«i‘“ ' 

WRItE(6, 45) 

F0RMAT(inXi» F0UN!) SEGMENT ') “ 

G0 TP 46 

call cdReouruFiR.f ile) 

Continue __ 

PRT0UT = 1 ■■ 

R = R.i.l 


6 


I 


FORTRAN IV-PLUS 
91ASRP,FTN 

0109 ‘ 46 

0110 

0111 49 

0112 

0113 

0114 

’0115" 

olni 

0117 

C 

Oils' 19 

.0119 

0120 

0121 .. 

0122 44 

0123 16 
C 

0124 999 _ 

“0125"'" 

0126 

■'0127 '’"17 


V02-04 ’“”’’10112111 ' 0'/-gCT-77 PA< 

/TR I OCKS/WR^__^^^ _ , - ........ 

CONTIN-Ue 

IFnPUP(l) lEO, »R* )._CA|.L, CAJ'rECJ iriUF,R>FlLFiTAPNO) 
continue 

CALL CORED! n3UF,R, FILE). . 

IF{IBuF! 1),EQ,»H*> CALL SEOEXT U nUF » R , F I LE ) 
IF(I0uF(1>,EQ,'C») CALL CLARES { i RUF, R, F I LE )_ „ 

■‘iF( I0uF(i')’,ECl, ’Srp CALL’ SiC aT A ( I PUF , R i F I LE » DFIg ) 
IF! IPUF(I) ,EQ, *D» ) CALL "OlR A Y ( I sUF , R, F I LE i PRTPUT ) 
IF! IRuF!1)',E0, *DO GO TP 

IF! I3uF( 1) ,E0, »F • ) CALL F CpER ! I BUF , Rf F I LE > 
IF!rlL£,EQ’,2) T0 18 


J F ! I BUF ! 1 ) , NE , » RJL) G0 TP g9 

lF!K,NfcV3'r G0 T0 15 

G0 TO 46 ... 

CONTINUE’ 

continue ... . 

write (6# 999) (Rr-C0RD!LL),IL = 1,12)| ! IBUF!708 + LN) ,LNs: 

F0RmAT!12Xi12A1i 4X.12A_1> 

’’do 17 1=1.12 

IF!REc2RD! I > .NE, IBUF!70S*I JJ__ GO TO 41 

’continue” ‘ ' 

WRTTE!6,104) 

' FOWHAT!lOXr’"”FOUND" RE^CORD”!) 

■ GO TO *6 ; 

'"FORMAfliOXi'^’Al) 

WRtTE!6,98) _ _ _ 

format! *1» .i‘OXi*« BLANK DAin^AR’d ') 

GO TO 18 . _ - 

CONTINUE 

CL0SE!UN!T = 3) „ _ „ „ „ — 

■■ OPEN ! uN 1 T = 3’.TyPET*' 0LD’‘ » NAMf= * X'XXX . DAf » ) 

IF!pRtOUT.EQ,0) go to 10 

READ!3.500,END=ln) ' PBUF 

WR1TE!6,500) PBUF 

F0RmAT(12OU’) 

GO T3 26 _ 

■'■'close ( Un Ft = 3 , D'i S'p O S E="» f3 'E l"ETHTJ 

IF !PRTyUT,EQ,2) PRT^T«0 

GO TO 19 

END 


BLANK DAin-ARO 


^Hrf.RTRAN IV-PLUS VOa-0^ . 07-l*CT"77 P 


'CAMREC 

0001 

0002 

0003 

,ftn 

/TRS»U‘‘CKS/VR 

SURR2UTINE CAmrFC ( | t?UF , R i T I UE , T AFN0 > 

IMPLICIT INTEGSR(A^E) 

L?iGlC:AL»l lBuril),CUlST{?4V)|C|,ASS(4i „ 

j»««(rc9*»a:r- rf. ■•*«:»* SBK.git.Ti— c iq» 

0004 

00015 


byte pB(i32),3LA .K,PT,LAPE^<5} 
L3GiCaU«1 SEGN)2(4> 


0006 

0007 


Dl^B^SliiV CT(16) 

. .. real 4(3,2)»ReR(6> 


0008 

0009 


1'vTEGb‘R SH5) 
C/KB3\t/PC‘.T/LI\R,PAGE 


0010 
0011 _ 


C3HMr‘,/C3 1 AS/A 1 M*, PER ♦D0,DyiTC, label 
INTu-gEq WI (60 


0012 

0013 

0014 

0015 
0 016 

.,0017 . 


REAL Pw(60) ,X, V,PCW,P\'W 

REAL pDU,pt)0,PTH.PX,PWTHs . _ _ 

C0mm(;n>/seg/segm0 
data 8UASK/1H / 
data PT/1H,/ 

03 11.. 1=1,132 


0018 

0019 

11 

PB(I)5aLAlvK 

CALL CAMMDG( I8UF,TAPM0) 


0020 

0021 


8PE'«i(UM T = 3, TYPES t NEW* iNAML- * XXXXiDAT» > 
L1NE=70 


0022 

0023 


CALL BNT 
write (3, 99) ■ 


0024 

0025 

99 

fdr^'atc ’0* # 28 x, 'CLASS I F'i c: A tBa Data* ■) 

WRITE(3,90) 


0026 

0027 

94 

F0RmAT<2HO ) 
write (3, 96) 


0028 

0029 

98 

F0RMAT(1H ,53X, »N0RMArfHEDl) ■" - 

11=0 


0030 

0031 


00 95 JJsi,16 

IF( 19'JF(83 + JJ)‘,E0, *1* ) G0 T0 96 


0032 

0033 

96 

G0 T0 95 ‘ " 

n = i i+i 


0034 
0 0 35 

95 

CT(! I )=JJ ■■ ' — — - 

C0WTI\UE 


0036 

0037 

0038 

97 

IImaXsII 
■write (3, 97) 

F0RmA7(1W ,16X;* cluster NAKe""' ■ THRESHsUb" 
o'APRl0Rl VALUE *) 

‘Value“‘™'V“" ■” 

0039 

0040 


CALL R-WT ' * ■■ '■ • -- - 

write (3, 90) 


0041 

0042 

0043 

90 

F0RMAT(* n 
LlNE=LlNE+5 

K = 0 ■ . - ^ - . 


0044 

0045 

0046 


U = 1 

N = 1 ’ 

RJ=249 

, , .. .. ... — „ — ... 

0047 

0048 


setsr=i4 " 

LFLDs32 


0049 

0050 

0051 

0052 


WIT = 0 " 

XCsO 

TCsO ‘ ■' 

D3 3 n=l,60 

... 

0053 

0054 

0055 

3 

100 

wi (I i)=o ■ 

DECPDE{4, 100, IBUF(56) > NDSUB 
P.^RNAT(I4) ^ ^ 

— - 


F0RTRAN 

CAMRECiF 

0056 

0057 

0058 

0059 , 

0060 
0061 _ 

’0062’ 

0063 

0064 

0065 

0066 

.0067 

0068 

0069 

0070 

0071 

0072 

0073 
"0074 

0075 

'0076 

0077 

0078 

0079 
‘0080 


IV-PLUS 

TN 

101 

1 




10 

30 


10112124 




DU 


V02-04 

/TR|<‘n,i^CKS/W» 

Df:C‘‘ue{5,ioi» iaurc64) > 

FCR'-'aTC IS) 

DEC'’0?:{5,l01i IBUF (69) ) 

6^! T0 2 . . .. . 

call CoREDiiBUFiRiFILE) 

RJs3 

SETSR»22 

Wsl 

cr’NTi*^;uE 

CALI. CPjPFnBUF(RJ) .CLARSiPWF'!?),, 
CALL *'V(I0UF(RJ) ,PP(28> ,6) 

. CALL ••‘V(!BUnRJtl5Jj,P.l(±6j.jil^ „ 
PB(40)spT 

PR( 50 ) = If’U'^(RJnR) 

CALL luUF(HJ + l9) iPB(66) »3) 

write (3, Hi) (PP(PJ) ,PJ = 2i I 79),_ 

call bnt 

F0P.«AT(2OX,6OA1L„. 

'TC = TC + P») 

IF{ClASS(1)',EO, 'X* ) 00 T0 10 

IF(ClAS^’( 1> iuQ, »W' )■" G0 ‘tC 50 

G3 T0 30 ‘ „ 

XC = XC*Pl " 

IF( j,BQ,j0_surn; g? t0 4Q _ 


o7i»0CT-77 


PACE 2 


o7% 
'osi- A 


.A 


y 


0081 
0082 
0083 
" 0084 
0085 „ 20 

’■■*0086 
0087 
■'0088 

0089 4 

0090 

0091 

“""0 0 92 ■" 

0093 _5 

0094 

0095 

■ '0 0 96'"" ■"6'" 

0097 

0098 

0099 

’OlOO"" 4 0 
0101 _ 
.0102 

__0103 

010'4‘ 

0105 

0106 

0107 93 

0108 

0109 

■"0110 

0111 


I F ( \ , EQ I SETSR ) „ G0 1 ... 

N s ♦ 1 

RJsPJ*lFLD .... 

' G3 T0 2 

. I F ( K . EC • p.) GC T 0 5 

LK = 4«(i<-l) 

DP 4 Ilsli4 ■ 

IF(clasS( 1 1 >;ne’,c:l'ist<lktt'i ))'■" Ge rei 5 
CDL'TIL'UE: 

wi (i<)=wl (K)+P*l 

HITaWlT* P0»PI 

“"GP T0 30“ 

KsK + 1 

■' L'-<sAo(k^T)“”"" 

D0 6 1' 1=1 1 4 

CLI8T(LK*I I )=CLASSn I ) 

WI (K) = ..(l (K)+PI 

'A I T s K f T * P 0 ♦ P I 

G0 TC 30 ___ 

cfatinue"’' 

IF(l.tiQ.l) RETURN __ 

write (3, 94) 

__ call rnt 

■CALL'BN'r 

WRITE(6,93) (CT(II).n=iiMKAX)__ 

call EnT 

F0RMAT(25Xi ’CHANNELS USED) ',16(1X|I2)) 
PCS22932 

D=pr.»L''0f'DU-yc 

■■ Y = FU’Ar^XC)iFL0AT(DU) 

DC 41 JJ = liK 


n'.«THAN 1V"PLUS 
CAHREC,FTN 
0U2 
0U3‘ 

GU5 41 

0116 

C117 .. . 

’OUS 

Oil 9 42 

0120 
0121 .. 

0122 

.0126 ... 

0124 

0125 

0126 

0127 . 

0128 

,.0129 

0130 
C131 

0132 200 

0133 
"0134 

0135 
‘ 0136 

0137 , 

0138 201 

0139 

0140 

O'!-''! _ 202 

0142 

0143 

0144 203 

0145 

0146 

0147 204 
"0148 

0149 

0150 * ■■ 205 

0151 

0152 

0153 206 

0154 

0155 

0156 

0157 

0158 

0159 

0160 
0161 
0162 

0163 207 

0164 208 

0165 

0166 
0167 


V02-54 tOtl2l24 • r7<.ecTf77 

/TPt-L"CKS/K3 

XsFL.*A7^«njJ)) 

PW( J.^)s(X*(X«Y)/FLeAT(D) )/rl-2AT(PC) 
P*^{jJ)spw( jj)»100i 
cr\T|suE 

» wr fKSjm »js=a=icj3c»*:3(if ’etbe-wh w-t -i <* « < 4 sert 

PCwr; , 

02 JJk1,.K__ 

pcw=3'r-*pv(jj> 

c,?\Ti:**'ue . _ . 

p M vj s A i •• P n u 

PDUsfPLeAT(nU)/rL?AT(PC) )«100, 
PD2scFl.aAT(n»)/rL>'’AT(PC) )«iuo; 
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P T h = 2 r 1. 3 A T ( f C ) / r L A T ( D ) ) « 1 0 0 , 

PX= {rir'AT(XC)/FU‘ AT (PC) )»10!^ I . 

X-FU‘ at (WIT) 

PWTWc{xMX*Y)/FL0AT(D) >/FL5JM (PC) 
PWTHsPwTHaIOO, 

,WRlT£t3>2P.0). 

C AI.L SN'T 
CALL B.wT 

F3« -’AT( ' 0»T2ix, t SEGMENT PFRGEkjTaGeS • )" 
WRrTE(3>94) 

CALL BnT 
CALL BmT_ 
w;MT£<6i201) 
call 


"» rF5ViT 


- »iF5,l) 


PCW 


Format ( iH"’, 21X, »kheat“ category ’ ^'"•',>571) 

WR.rTE(6,202 ) PNW 

call BnT 

F^PmAtUH , 21X, 'NKOR'^AT GAtLGCRY - «,F5tl) 
"nr 176(6, 203') Pbi? 

CALL RnT 

F0PMAT(1P'7’21X, TESIGNAfED "^fh'CR 
WRITE(6,204) PTm 
CALL OnT 

FZRMATdW ,21X| ' THRESHBLD 
" write ( 6, 205 ) PDU 

call B.\'T 

F 2 R H A T d'W , 2 1 X , » D £ S I G N A T e D ' 'I M t n H N T ; ' V F 5 Vi )' 

WRITE(6,206) PX 

call p.nT ■ ‘ ‘ 

FZRMATdH i21X,»X CATEG0RY 

WRITE(6,94) *■” 

CALL RNT 

CALL BnT ■ ■ 

D0 2o7 1=1, K 
Jli^l 
J2 = 4 

■ W R I T E ( 6 , 2 0 8 ) ‘ ' ( C L 1 S T ( 'J 'JlTJ ^ = J 1 J 2 > TP W Lf)‘ 

Jlc Jl+4 

J2 = J2*4 ■ 

C0NTINUE 


» iF5,l) 


FZRMATdw ,21X, 'WHEAT CLAS? '»4A1 i' 
WRItB{6,210) _PWTH 
CALL BnT 
CALL QNT 


'•F5.1) 


































1 V02-»04 10»l2f^6 

/TRiBu^'CKS/wR 

SU'5R{’uT I ».■£ SiiGi^XT (1 PUF . H , LP ) 

implicit iMTerirtP(A-*H) 

PYTG li'unDiUAilPL^?), , ... 

REAL A<3,2),PER(6).X 
iNiT&RrR ’MI (5) 

C0M|^/VM/CniAS/AiNI ,PER»DviiDlTTC,i. 
CAT*1 ^ a. = . 

!?J = 7 

LFins^? .. . 

DECt’.nF{?.ii02,lOUF(6)) CATS 

F 2 R .V A T ( I 2.L_ .. ... 

CZNTihUe 

L,APEl.(CAT)slRUr(R4*J.) 
DEC-^DEtSilCij, inUKlRJ+2) ) P»P 
NI(CAT>sP0P , „ 

1F(CAT.GT,3) GP T0 7 

DECPwEl 3,i03, lPUF(RJ+7n _CvVaL 

PE‘^(CaT)sUVVAL 

D£C,^nf;(3,i03, inUF(RJ + 10) ) PIVAL 

P£R(CaT+3)=BIVAL 

F0PMATU5) „• 

IF(CATiGT.2) C.C TP 7 

PPFs5?7 ■ .... 

DP 6 i=li3 

0ECzDE(3, J.03, IPUF(RJ*0FF) L IV, . 
F0RmAtU3) 

XslV 

A(I ,CAT>::X/100'r"' ■ “ 

'3FF5PrF + 3,^ 

‘C0KTINUE 

IF<CAT.EQ,CATS) G0 T0 2 _ 

CAT=CaT>1 

RJ = RJ*I.FLD _ 

G0 TP 1 
CPi'-T INJUE 

■ r ^ •*■«= « Ml Baim M'—a O i m — m ' i' p» i«» * n « i nn .•»■*» . <a>M • 

v'RIT5{6i1C0) AiNI 

fzRmat< *.t MoXi * a; • ,6<rAiZ.2x) 

RETURN 

END 


, 10 ll 2 fA 6 O 7 »? 0 T «77 


Label 


; • ,6<F'1iZ|2X) , »NI I 




Cl.URcS,rTN 

0001 
0002 

0003 

0004 

0005 

0006 

0007 

0008 

0009 

0010 
0011 

0012 102 

0C13 

0014 

0015 

0016 

ooi; 12 

0018 

0019 10 

0020 


/TS|*^U‘2CKS/hf? 


. i II 2 07p»2GYt77 


PA 


QDZl 

0022 

0023 

0024 

0025 

0026 

0027 

0028 

0029 

0030 

0031 

*ou:<2 

0033 

0034 

0035 

0036 

0037 
0033 

0039 

0040 

0041 

0042 

0043 

0044 

0045 

0046 

0047 

0048 

0049 

0050 

0051 

0052 

0053 


ClURrsnnUF|RinU) 

IHPi'Clt INTESKH(A-8)_ . 

lNTgr»'a-^M L2DIST 
real Xu2 
eVTE lT*T(ir 
DlMFvSjON CTU6) 
Ct<MM.■.^/p0^T/UVg,pAOE■ 
DEcrD*^{2,10?» PIUF(4) ) ALSBIS 
iFUin'-.TS.EO.O) RF.TURV 
.DEC0D^i{2»iO2i IBUF{6>L .SETSl..., 
ir<SSTSR,SO,0> RETURN 

F,’R.MAT<I2).__ , 

UO 

D2 10 J*l»16 

lFnBUr(7*J) ,SQ‘, »1* ) ‘ G3 T0’ l2 
02 T0 10 

i = in 

CTU)«J 
C3NTIMUB 
CHMAX=I . 


C 

0 , WR I TE CLUST&^1 RB, SUETS . uEADER,. 
C 

IF(L|nS,GT;, 45) ElNEa69 

call BN'T 

lF<Ul.ve.EO’,0) G 3 T0 3 

■ call B^T 

WRITE(3/98) 

’ ■ 98 “’ F7IRMAT{»0 
3 C3N'TINUE 

CALL 


100 


.110 

91 

92 
99 

1 

2 


» > 


call ONT 

write (3, 100 ) 

F0RmAT( *0li28Xi ‘CLUSTER REffKRT t) 

’call" BUT 
WRITE(3,99) 

CALL BUT ’ 

CALL OUT 

writB(3,iio) alslts 

Fpf?MAr( 'O' |16X, 'CLUSTERS G^NRHaTEDI ',I2) 

CALL BUT ■" 

CALL OUT 

WRITE<3i91) * ■ 

F0RHaT{ 'O' ,16X, 'CLUSTER N AM^ ' , 2X 1 * SUBCL ASS/n0T f , 2X 1 ♦ L2 MAl 
CALL pUT ■ ■ ' 

WRITE(3»92) 

F0RHaT(34Xi 'MATCH*' 16 X, 'DISTANCE' I ” 

CALL BUT 


WRlTtl3f99) 


F?RMaT( ' 
RJs23 
LFLDal7 
U = 1 

Continue 

K ^ 1 

Continue 


» ) 


3-^ 


ICI12I&S 07«2cT*77 


PAGE 2 


m3 
mh 
GO!! 7 

0019 

0060 


i-2DlST 


P2RTRAM tV<.PLUS VO2*»0<fe 
0UUPfS,rT.\* /T^^*^L’C*<S/kR 

C 

q PROCESS A CLUSTER DATA SET 
C 

DSCfO^-^iiOSi 

15> 

XL2sL*DlST 

XL2sx«.’/100, 

CALL PNT 

WR1TSC3>93) ( lBUr{RJ + L>iLal*6)i nEUr{PJ-‘6+M),Mslifc) >XL2 
rv5RMAT{a0X,6Al,6X,6Al,6Xir6»2) ... . .. 


105 


•tmimt » » t rit a 


u :i •«n> 


0/// ^ 


oi 
c 

c test fcr e‘cd gr data 
’ c 

0061 IP(J,S2,ALSETS) fig T0,4 

0062 U*J*1 

0063 IF(K,Eo,;JETSR) G0 T0 13 

0064 ’ K=K+i 

0065 RJ = ”^^»IFLD 

0066 GA Ta 2 
C 

0 READ 2ND CLUSTERING PEcgRD " ’ 

C 

0067 13 CAUL CdRHD U OUF , R , FI LSV 

0068 RJs?3. _ 

0069 ' D e C '' 0 E {2710 2 1 f B U fT 6 f) *“ S E T ! R' 

0070 GF Tg 1 _ __ 

0071 * ■' 4 ‘ “ 

0072 CALL BNT _ 

0073 CALL BNT 

0074 WRITE:{3,B0) 

■‘0075 ‘ ■'■ * 50" ”""*F0RmAT( 'b'7i'3X7»'cr0STERlNG“rM^ 

00>6 CAUL 8NT . , 

00/7 CALL QNT 

0078 WRITE(3,51) (CT( !> , IsIiChMAx) 

0079 51 F2RhAT< 'OMOX il6(iX» 12) ) 

0080 RETURN 

0081 end 


»i»-=afcjfca 


> 

\ 


'Ji 


HF?f?TRAN p/ 

Di'TRAYiFTN 

COCl 

0CC2 

cco;j 

OCC^ 

GCP5 

0006 

OCO 7 

0006 

000? 

0C.10 

OCU 

OCt« 

0013 

0014 

0015 

0016 
0 C i 7 
0013 
C0 1.9 
002 0 


•PLUS V.1?-'!4 10»l3»0i 07-3CT**77 

/TK|: ••l2C:<S/KR 

Sv'*'-4/.'TinG D 'TRAYn3UF»R,FllB»PRTi2UT) . 
S<6),VC<2) , A(3,2) 

'ncAL 

I N7E-3i;«^ PAGE , r ILF » ® I PEC , P J » SkTSK , PHT3UT 
IN'T.'.jsfR "l{5>,L^(:M|C(.n,(.l9N^-’.C-J»TC „ _ 

«r^:= 1 FuF ( 1 > , TVPF t POP ) I Lf'LEl^ ( ^09 ) 1 CL ASF Y ( 4 18 ) 
PvT-:: ;SLK,2Vk,.’‘LrC, SLASH, T'^C jLaBSUS) 
fyt,:- i.H,cL»ci,na,C3,c4 
ByT'^ pKATRM.PO) 

C;!'‘^--'\/Pn,^T/Lrvf:.FAGH 
C? /Cn 1 A S / A , M , P EH » OF/ , D’U » TC , L ABEL 
DATs r‘)E/'l'/,SLAS»^/*/'/,T'"2/'2‘/ 

Data ci/*K»/,G?/ 'S*/iC3/'fs:/,C4/*Xi/ 
data 6LK/» */ 

Ci=LAB&L(l) 

C2=LABEL(2) 

LFLD^44 

peLV •'^'»OWur'; 


PA 




pA ei t -T, 


SET-’jPslS 


0021 

2 

CCXTINUE 


0022 

0023 


RJ=12 
H = 1 


0024 

0025 

i 

COWtiMUB 

TYP!Btx)sI8llF(RJ + l2) 


0026 

0027 


L«Lr:D(K)cIRUF(Rj + U) 
CLiSFv(2«K)=IBHF(RJ*10) 


0028 

0029 


Cl4SFy( 2«K-1)= !buF(RJ*9) 
K = K + 1 


0030 

0031 


IF(N,eO,SETSR) 'V0 T3 13 
N = M*1 


0032 

00:53 

13 

RJ=RJ*IFLD 
G2 TP 1 


00.34 

0035 

IF(Ri:C*EO,14) RS tp 14 
CALL CDRBD( nUF,P,FlLE) 


0036 
00 3 7 


RCCsrRECil 

IF(REc»£D,14) $£TSR=14 


0038 


G3 T2- 2 



0039 

0040 

0041 

0042 

0043 

0044 

0045 
0C46 
004 7 
0048 
004 9 
0050 
0C31 
0C52 

0053 

0054 

0055 


14 C^A'TlNUe 

C write (6, 100) ■" 

100 FSR'iAtOi *) 

wRi re (6, 95) 

write (6, 95) 

write (6, 95) ■ ” - ” - 

95 FFH.MAtOO ») __ 

(?NETD = 0NE 

D2 6 1 = 1,19 __ 

6 ■ C3L(I)=I*10 

4 Ksl „ „ _ 

WLlNEslO ’ ■ ■“ '■ ■■■ ■ 

WRITE(6,102) 0NCT0 

102 F?HmAT( 'O' ,42X, 'TYPE '|A1,1 dCT LABEL/CLASS 1 H CAT I 0N » )' 
WRI TR(6, 101) 

■ wRItF(6, 103) " “■ ■" ' ■ 

103 FvIRmAtC ', IX, 'PIXEL/' ) 

WRITE(6,104) (Cl Ld ), 1=1,15) 


reRTRA'i iv-Puus 
DKTRAYiFTN 

0056 

0057 

0058 
0050 
0060 

0061 iC 

0062 

C063 101 

0064 

0065 

0066 

0 067 

0068 
0069 


10U3I01 ■ 0 7*ecT-77 

104 F^'R/,ATt • SlXi •UNgV72k;r9f iViSXT) ' 
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0070 

0071 

0072 

0073 

0074 

0075 

0076 
007? 

0078 

0079 

0080 
0081 
0082 

0083 

0084 

0085 

0086 

0087 

0088 

0089 

0090 

0091 

0092 

0093 

0094 

0095 

0096 

0097 

0098 

0099 

0100 
0101 
0102 

0103 

0104 

0105 

0106 

0107 

0108 
0109 


C 

C 


12 

99 

.11, 


D3 li ^*1,11., 

L»6 

D3 1C-. Inil20 , 

! ) sBLK 
CfN'T S'.ve 

. . T'ow _ w - 1 M ii>— iiip mw * W 4M— na ■ ■ iwu ai » w i««i 

WRITt«6il0l) 

I • ) 

do: 

ir<TVpP(K) .EQ.'^KFT-M G0 T(^ 7 
IF( f 7vPS(K) ,RS. »3' ) ,AN'D,<0 N'Et0’.E1i» 1M> 
IFtf'vPS(K),5C| VO' ) ,A\n, (0NETi!.,fcQ|',2‘ > ) 


G3 

G0 


T? 


7 

7 


GE 5 

CENTEsUe _ ■ 

CLsCLaSFY(2»K) 

IFUCi,.gQ, »0M i09| (Cl.,EQi > G0 T3 5 
PMATR(UsLPL6D<K) 

PMAYR(l*l)aSLASH . 

PMATP<1*2) =CLASFY(2»Kr 
lF(JtASFY( 2 <»K-l) .to, » O GZ T3 5 

PMATR(l, + 2)sCLASFY(2‘>K>*i) 
PMAtR(L>3)3CLASFY(2»K) 

Ci5^'T!^UE 
KsK*.X 

LaL*6“”" 

C0KTUUE 

WRITS <6, 99) K'LtNP, (PMATRC I > » I»6,l20) 
F0 RmAT<» • ,2X, I3.2X,115A1) ___ 

WL!\iEa.VLINe + 10 

C ' r I N'Ut _ ___ 

IFCiJWeTo'.EQ.TWP j ge’tTI 
0\'Ete£TW3 
WR!T6{6,100> 

GE TP 4 
COKTIN'UE 
WTYplcO 
MTYPSaO' 

NM I =0 
NGIJ=0 
NBI 1=0 
NHIJ=0 
LN<D = 0 
'LN<2)=0 

LN(3)^0 

LM330 

LM2aO 

LH1»0 . 

L8C1=C 

' * » *< i.Wl| «W , 1 - 1 . .tn» HtTMl—fl.H^ MUll iNi fci. ■ — al. lull - -I T II I'l IMII ■■ ■ ■!!■ ■fTl < 

L8C2=0 

N0tC=O 

00 39 1=1,20 9 ■ ’ " 

tBsLBLEDd ) 

CL-CLaSFY(2*I) ' 

ir(L9‘,E(2, » » ) G'^ T0 30 

IF( <Ct,EQ, *0' )',09, (CL.toV'Gf ) > ■■"g0 TE ’39’ 
IF<TYpE( I ) ,E0, *0' ) G0 TA !?9 



FORTRAN 

IV«PLUS 

V02-C4 10113101 

D0TRAY, 

FTN 

/TRM»l?CKSVKR 

0110 


lF£TVPfc( 1) ,BQ, »2* ) GO T? 

0111 


NTYPlsNTYPl*! 

0112 


IFI’{IP.NE,CL),AND.(CL.NE. 

0113 


NAri=NAn*i . . .. 

0114 


Ga TP 35 

011'5 , 

...33, 

IFULP.EGjCi) ,AKf^, (CLiPQ.i 

0116 

C 

lF(«LP.E0,C2),ANr,(CL,EQ'.i 

0117 

C 

35 

IFfTVPCl n ,NE, »2' ) G0 TO 

0110 


NT''*<=2aNTYP241 

,0119 


IFCtLp.NE, ♦ (CL'iM 

0120 


IFaP^^E'.CU) Ga TP 36 

0121 


N:m=N5H*l .. 

0122 


GO TP 37 


07-ecT»77 




0123 

0124 

0125 

0126 

0127 

0128 

0129 

0130 
,.0131 

0132 

0133 

0134 

0135 
’"0136 


0137 

0130 

0139 


0140 

0141 

0142 

0143 

0144 

0145 
‘0146 
0147 
’0149 

0149 

0150 

0151 
■0152" 


0153 

0154 

0155 


0156 




G3 T0 33 




<0%; 






A* 


39 


K '»•» •»* »<T a» ~ i ^ T»«j 


36 

J7 


4 0 
39 


800 


900 


899 


898 


45 


C 

C 


46 


flOl 


IF( (LOiEQ.Cl) ,ANn, {CL,^0‘,C’4) ) 
IF( CLniec3,C2) ,AN''., (CL.EQ.Ci) ) 


IF<1.F,GQ,» . G T2,39 


NHIJcNHlJ+l 
N(H! JaNHIJ^l 






IFCnl .EO.Cl ) L>-'(t)=UN'a)*i 
IFfCL.OQ.CC) U^(3)'-L\'(2)*i 
IF<CL.&0,C3) L^J(3)=L^’{3)*1 
iray,KQ,ci) LPniaLOcm 
IF{l^. 6«'.C2) Lb'C2aL'-'C2>l 
!F( {Ci,,[-i 5,C3) , AKO, a,5,S0,C^) ) 

IF{l 9',N'£ ,C2) Gv5 TO 4Q 
IF« (CL»E!J.C1) 

IF(lP'.N6,C1> 

1F£{ Cl.bg, C l) 

C3KTINUE ■ '■■■'- ■ ^ 

WprTH{6,800 ) ^’TYPl,^JTYP2J3’AI ! , NB 1 1 , \'G IJ , N0LC__ __ 
F3 RmAT('1'.9X,6I5)''*“““’“ 

WRItB(6,900) NM1J.LN<1) ,LN‘2) »LM3) ,LMI,LM2iUM3,LBC1 

F0r<MAT< •I't ,9X,9I5) ■ ’ 

wRItB( 6,699) (M(I). Ial,5!f n'3,DU»TC 


i?'??'. (CL ,EQ,.C2j ) 


<fy 

I ^ 


GO TO 39 
R*. (CL’.ea.cEN 


.L^'A=LM3ti_ 
LM2 = LM2*i^^_ 
LM1=LM14.1 


iLQC'f 


F0RmAT( 'O' . lOXi 'XI I ' .5l6»10Xj3l5) 
write (6, 998) LAPEL 

'format ( • 0 ' ,Tox, ' lapblS'“i » r5 ('SxVaHT 

PCC1=0, 

PCC2 = 0. ’ 

PCCGiaO , 

PCCg23 0,'““ '* ' “ 


IFCMyPI.EH.O) go T3 45 

PCC1 = (FL 'AT(RAI I )/FL:'ATrMT.'CFr5 )'*lOo7 

XsRGIJ*NAI I 

PCCGl3(X/FLCAT(NTYPl) )«100| 

if(ntyP2,eq,o) ne to 46 


PCC2=(^L2AT(N8I I )/FL0AT(,\TYP2) )«iOO, 
XsNHljnPl I 

”P C C G 2 a f X / F L 0 A tTn t Y P 2 ) *)1>”lO’OT 




continue 

IX=NI(4) 

BASe=22932"NI (4) 

write (6, 801) base' 

FCRhATUOX, 'fUSEa 


' .F8,l) 
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0157 

0158 47 . 

0159 

0160 
0161 

...... . 

0163 

0164 49 

0165 52 

0166 53 
0 

Ol67.._„...,e.0i?._. 

c 

0168 

0169 

0170 . 

0171 
PI 72 . 

0173 

0174 

0175 

0176 90 

0177 ' 51 
C 

oT78 

0179 

0180 
0181 
0182 

0183 

0184 

0185 
0136 

0187 70 

0188 
0189 

‘0190 ■ ' 

C 

’0191 

0192 

0193 

0194 


0196 

0197 

0198 

0199 

0200 
0201 
0202 

0203 

0204 

0205 


V02-O4 10113101 07. 

/TRlBlPCKS/WR 

PCI 47 K»i,6 

5>{K)»0j 

Ksl 

D0 53 4»1.2.,.„,„_. 

D0 52 lslf3 

I F ( L^! ( I > , LB , 1 L.„r.e. T0. 49 ... 

S(K)»CA(I » J)»a,.A( Ii J) 



CPWTInUE 

C0A’TIS'U6 

WR1TK<6,308) S 


vq(i)s0,... 

VC(2>a0, 

Ksl 

P0 51 J=l»2 
.00 50. in»3.__ 
X=(FLgAT(NI(I>)/ 
VC( J)sVC( 

'K = K*1 

C0K'TlNlUE 1 

C0NTIMUE'" 


fLNir 


RASE) 

S(K) 


»100| 


>Gii~6T 

PG2aO;, 

RSlcO, 

RS2so; . 

'v'SUM = Vl(l)*NI(2)tKI(3> 

PSUm = fI,0AT<NSUH)/BASE 

■ IF(N0L0iEQVb)' G0 TP 70 

RSl = (FU0ATaRei)/FLaAT(N7L9J 5fPSUM 
RS2s(FL0AT(LRC2)/FL0AT(NPLp) )fPSUM 

C0N'T InUE _ _ 

PRSlsRSlolOO,"""' 

PRS2 = RS2*‘100,_ __ 

N 0 L N I e 1. N ( 1 )’*l N (TH L N ("3 jVi 

VR8i = (RSf« < PSUM-qSlT)VFI.?Al ( N0LN1)™ 
VRSlsVRSlolOOOO , 

VRS2 = (RS2*(PSUH-RS2') >7FL,0Al(S^LNTr" 
VR?2=vRS2»10000 , 

WR I TE ( 6, 334 )' RS1‘, RS2 » PSU"'VyRSi i VRS2 
F0PkAT(1OXi 'RSI I » ,5F8,4) _ 

IFtVCU) ,EO,0, ) G0 T0 55 
PG1=( (VrSI/VCU) )«1, )«100, 

IF(VC(2) ,EQ, O, ) G0 T0 56 _ 

PG2=( (VRS2/VC(2h«iT)‘»100r 

CGl2apER(l)+PER(2> 

MbLm1*LM2 
N=LN(1> *LN<2) 

ALGsO', 

■ IF<N,EQ.6T""*G0‘”fn’"57 
ALGsFl0AT(H)/FL0aT<N) 
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PAGE 5 

0206 

0207 

0208 
0209 
0?40 
0211 

57 

C0Nt1nU£ 

N = Nl(l)*NI(2) ^ , 

CPC,sAL8tt(FL0AT{N)/DASE> 

Xal, 

IF(L^<3) ,e0,0) TO 58 ■“ 

Xsl .-(?L ^AT(LH3)/FL0AT(L^<^) )) 


0 212 

0213 

0214 

0215 

0216 
.m.7 .. 

58 

C0Nt!%IjE 

XsXt.(PL,2AT(NI (3) )/DASE) 

CPGeCpC. + X 

CPG = C?fi«iOO, .... ...... . 

A L N = 0 , 

IF<LN(5) .EQ.O) r,0 T0 59 


C 

C 

■ 


0213 

0219 

59 

ALN=FLvAT(UH3)/FL^AT(LN<3) } 
C0NT InUE 


0220 
0221 . 


X=<F1.0AT(N)/BA"SE”)«1OO, 

vo=o . 


0222 

0223 


lFUL‘V(l)+LN('h^f)VLE.O> T0 60 

VG = X»X^( < AIG»(1,-ALG> >/FLKST(LN(i)*LM{2)*1) > 


0224 

60 

0 

C3NTINUE 

K'RItE(6,333> A'LG, ALN.XiVG 


0225 

0226 

333 

F2RmAT<10Xi ‘A tr.,'. 1 '|4F8;2) 
X = 0. 


0227 

0228 


IF<(LN<3)-1) .lI.O) G0 T0 6l 
Xs(FL?)AT(NI (3) )/RASG)ttl00, 


0229 

0230 

61 

X::X»yii( (AUN«(1>ALN) )/FL0Ai(L‘N<3>«»i) ) 

chntinue 


0231 

C 

vgsvg-^x 


. 0232 
0233 


CsUM-lFcI) *1.11(2 )*C'N(3) 
RSG = 0‘, 


0234 

0235 


irasuM.Eo; 0) g:: la 62 

RSG=<rL,0AT(LBCl + LeC2)/FL^Al(USUM) )*PSUM 


0236 

0237 

62 

C0MT1NUE 

PRSG“lOQ,#RSG 


0238 

0239 


VRPG=Oi 

IF((LsUM-i) ,|.E',0) G0 T0 63 


0240 

0241 


VR8G=(RSG'<»(PSUM-RSG) )/Fl.?’Al (LSUM-1) 
VRSG=VRSG<»10000 , 


0242 

0243 

63 

caMTiNue 

PGG=0, 


0244 

0245 


IF(VG\Eq, 0,> G0 T0 64 
PGGs( (VRSG/VG)-!. )»100, 


0246 

64 

C 

C0NTINUE 


0247 

C 

WR1TE(6,95) 


0248 

0249 

499 

WRITE(6i 499) 

F0RHAT( »0» ,33X, 'GUS caRREyiiaN REP0RTM 


0250 

C 

WRITE(6,500) PCCliPCC2 


0251 

500 

C 

F0RmAT< *0' ,5Xi »PCCi ♦ ,F5,l44X, tpCC2 •*F5U') 


0252 

0253 

501 

WR1TE(6,501) PCCG1,PCCG2 

F0RMAT{‘ «,5X,'PCCG1 ' i F5 , i » 4 X , i PCCG2 • , F5’, 1 ) 

• 




fTr>RAN'Yv«PlUS V02.'§4" 10113101 ' O7«0CT-77 

D 0 Tfl A Y,. F T N ./T P / WR 


0254 

0255 
,0256 

0257 
“or. *3 
025? 

0260 

0261 

0 , 26 . 2 . 


PO'’s:trl0AT(N‘I (5) )/PA5E)*10O| 

t . "»i ' ■- * i«F > «• •« ««»«-■ iiu'jii .ir l ■■ a» 

WRr^H{6,491) PO0 

' ,5X, •DFSlGNATEn .‘^THbRt ,3X»r5',l> 

PT^^=<ri.3AT{TC>/2?932. )<il00i 
■v/.RlI.i(6,492)' PTH ' 

,*|5X, »TmKFSH;,'LD' ,.lOXfF5Ut.....™ 

PCl' = (FU0AT<NI{4>)/22932, )«100i _ 

WwE 75(6,493) PDU 

j 5X I Pimt ij.5^£5 


0263 


WI%ITcT6,‘502)’ 


0264 

502 . 

r» 

F3R(;^4.T< »0.N8X, 

0265 

u 

WRITE(6,503) 

0266 

503 

* ci» ,4X 

. . ..... 


P&PCcNTAGS .!,J 

0267 

U 

WRITE(6,504) 

‘0268 

604 

r,?Ri«ATi* 'i4X 

.... 


PgRCENlAGE ' 

0.269 

o 

Wn?T£(6,505) 

0270 

505 

1** 

F3RMAt(» »,4X 

"0271 

^ _ y 

'‘•;R'!TE“(6750 6T' 

0272 

506 

F2R?<AT(’ »i4X 


n 

SAMPLE EST, » i' 

‘0273 

V 

■WRfTE{6r50'7r' 

0274 

507 

F3RmAt(» ',4X 

0275 


WRITE(6,508) 

0276 

508 

F3R«At<» '.4X 

0277 

G 

.. . C.. 

'WfnTE(6,T0i)'‘ ' 

0278 


IF((La5EL(1)»I 

0279 


'^RI TE (6, 510 > 

0280 

510 

FKR|'.AT( 'O' ,8X 

0281 


‘^RITE(6,5U) 

0282 

511 

F0RmAT< ' 0 » , 4X 

0283 

U 

WRITE(6,512) 

0284 

512 

r» 

F0RhAT<' *.4X 

"0285 

w 

WRltET67513)‘" 

0286 

313 

F0RMAT<' 'i4X 

0207 

u 

WRITE(6,514) 

0208 

514 

F0RmAT<' 'i4X 

0289 


WR!TE(6,516) 

0290 

516 

F0RMATC *i4X 


"OTI'??I?iM:"FAGE“1S' 
. j^OOR QUALITY 
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DCTRAY.FTN /TR f St?CKS/WR ... . . 

0291 writ: ( 0,515) P&n 

0K92 515 r?B-<UO < ,4X. ’PHRCEt^T GA 1 N i , 8y , F7', 1 ) 

0293 90 ‘ C«.'KT!\Ug 

0294 IF{P»T’7UT,eQ,l) RETURN' 

0295 IF( (PCCl',LT,80‘,V'.2R, (PCC2,''T',06', ) ) ■ *PRT0UT»2 

0296 return, 

■Q29'/“ * ’ ’ END 













HFORTRAN JV-PLUS V02-04 
CDRBD.FTN 
OOOi 


0002 

0003 

0004 


0 04.6 

0047 

0048 

0049 

0050 

0051 
0 052 

0053 

0054 


/TR{RlKCKS/WR 

SUSRBUTINP CDREn(It3UF»R,FlLfc)_ 
IMPt. iCtT INTEGER(A-H) 
INTEGSR^e IS7AT(2), IPRM(6). 
EOUlV/.tE.VCE(ISTAT(l)i IP) 


10U3M2 0Jj±Cjm77_ 


PA 




10 


" 0006 
0007 


L0G1cAl-> 1 IPUF(l) 
DlMENS'iJN IWDATdJ 


0008 

0009 


dimension U(37) 
data XnP.V/2HXT/ 


• 

0010 
. 0011 


DATA MDCV/2HMT/ 

RECBRDsR _ 



■”0012 

0013 


IF(RECBRO,GT,0) I 
ERCNTsO 

30 T0 10 


'0014 
.0015 . 

12 

IF (record', EO'.'- i) 
C0NTlNue 

G0 T0 6 


0016 

D 

FiLEaO 

WRITE(5i49L„ 

ii"0r'r"r0TT"A“PE"‘ 

lA 


■ 0 017 

0018 


FPRi^ATaOXi' TYPE 
READ(1,51 ,ENDs 99) 
IF(lA(l),EO', »M«) ' 
IFUAd) ,EO, »X*') 

DEVICE C0DEV) 

‘ 0019 ' 
0020 


G0 T0 13 
G0 T0 14 


'^ 0021 
0022 

99 

C0NT iK'uE 
WRiTE{6i97> 


• 

' 0023 
0024 

97 

■’ F0RMaT(1OX» * ca"rd” 
WRITE(6i97) 

ERR0R •/''■) 


'0025 

0026 

13 

ST0P 

IDEVsMdGV 

• 


0027 

0020 

14 

G0 T0 15 
IDEVsXdEV 



',0029 

15”"' 

D 

CONTINUE 

WRITE(5»50> 



”00 30' 
0031 

50' ■' 

F0rhaT{1ox',’' type 

READ(l,5l,ENDa99) 

TAPE UNIT ‘NOKBER 
lA 

•* 0 0R 1») 

"0032 ' " 
0033 

51 ■* 

F0RMaT(37A2) 

IF( IA(1) .EO, »0» ) 

G0 T0 la 


"0034 

0035 

•16 ■ 

"" IFnA(l')'.EOT’T» ) 
G0 T0 99 

G0 T0 19 


"0 036' 
0037 

1UN'T = 0 
G0 T0 20 



““'0 038 ' ■■■ 

0039 

19 ■ 

20 

lUNTn 

C0NTINUE 


e&fe 

0040 

0041 


ILUN=9 

ids=o 



■ 0042 

0043 

0044 

0045 


ISRso ■’ 

CALL ASNLUNMLUN, 
IF(IDS'.LT'.O) G0 
call getadruprm, 

IDEVi lUNTi ICS) 

T0 1 

IBUF) 

- ■ 


call Ql«<”2400, ILUN 
IF{ Ir-R’.UT'.O) T0 
IF<REC0HD,EQ,*1> 
JPRM(2>=3600 

C0NTINUG 

ISW«0' 

REceRDsREC0RD*l 
CALL QI0<"IOOO, ILUNi 


.ImISTATmPRK.ISR) 
2 

G0 T0 11 


111 ISTA, 


,» IPRM, ISW)“ 
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CORED, FTN /TR| PL^CKS/WR 

0055 “ IF nsW’,LT,0) " GF'f0*”r 

J056 . „ CALL WAlTFRU.IRS) 

0057 JFdDS.LT.O) GB fZ 4 

.. „C„ WR!tE( 6,101> <IB(n,I«l»?)»lRTAI(2) 

0058 101 F3RmAT< 1W0, lOX, 214, 3X, 15, 2r., 'BYTES TRANSFERED») 

0059 ERC0DE=IG(1) 

-’-6060 "~*1 F ( ERCBDEVLTVrf "■l}e”t(0 

0061 RETURN 

”0062 ■■““T Continue " 

0063 WniTE(6,100) mS _ 

0064' 100 ' FBRMATtlH ■, '*“'ASLUN CALL 'rSW» 7, 161”’ 

0065 ST0P_ 

0066 2 ” C0NTINUE 

0067 . WRITE<6,200) ISR 

'0068 ' 200 FBRMaTUH , * REW I ND DSW"» ♦ ,“l6"> 

0069 STOP 

**'0070 ’S"” ” CBNTl'NUE" 

__.007l _ WRITg(6r301) JSK 

0072 ’ ’' 30 0 ’ "format • READ QIB DSW ■ t , m 

0073 ST0P _ 

”0074' ■ '4’ ■ '"’CONtrNU^ 

0075 WRITE<6,400>^ IDS 

‘"0076 " 466 ■ FBRMaTcIH t’ WAIT’TsW n sT6") 

0077 STOP 

""6078”'’'* 5 ■ ''C0NTlNu6 ' ~ 

0079 IF<ErC0DE,EO,-1O) F I LE:?F I LI:*1 

■"6080 IF (ErC0DE'.EQ', "10 RETURN 

0081 IF(ERCZDE.NE,«4) G0 TB 7 

“0082 ■' ’ ERCNTsERCNT^T ” 

__0083 RETURN ; 

0084 11 C0NTlNt/E" 

0085 WRITE<6,700) 

"0006 700 F0RmAT« ' 

0087 IF(ERcNT'.EQ,0) RETURN 

“ 0008' ■■ WRItE{ 6,600 ) " ERcNt 

0069 600 F0RMATI »1M0X, » TAPE ERR0«S ENCBUNTERED • »,15> 

“13090"" " ‘"“ RETURI^' “ 

0091 7 C0NTINUE 

0092"’"’" ■wRITET 6”‘,560)” ERCffPE 

0093 500 FBRHATjlHO, » I/B STATUS RL^’Ck ERR0R C0DE? »,I6) 

‘■"0094 ST0P 





hf^rtra 
STDATA, 
0001 
00C2 
0003 
00C4 
.0005 . 

0006 
0007 , 
0008 

0009 

0010 
00U.._.. 
0012 

0013 

0014 

0015 

0016 
.0017 , 

0010 

0019 

0020 
0021 
0022 
0023 

"0024 

0025 

0026 

0027 

0028 
0029 

"0030 
0031 
"0 032 
0033 
"0034 
0035 
‘0036 " 
0037 
"0038 " 

0039 

0040 ■ 

0041 
'0042 

0043 

0044 

0045 
.0046 
0047 

’"0040 

0049 

0050 

0051 

0052 

0053 

0054 

0055 

0056 


N lVi*PLUS V02'*0^ 10*13*52 O7»0CT?77. 

FTN /TRi'-lTCKS/WR , ^ ^ 

SUBRFwTlNC STDATAMOUFjPiril-E^DFUG) 

IMPLICIT IKTfcG£RU'*2) • 

U?GICAl«1 IPUF(1.) ,PFN(132) ,PP<132)|PNU32) 
LC3ICAl<» 1 PTua32) ,PM(2112) 

. LPGlCAin BLANK.. 

LKGICaL«1 PF(132) 

. , C0MMF^/PCNT/Ll^^P.»PAGe„.___ 

DATA "slAnkvih / 

IF(CFl0,RO,0) T0 .12 
CALL STDMP(IBUF) 

TP 13._ 

CFNTlN'Ub' 


12 

13. 


99 

98 


100 


'97 

16 


20 


22 


ALSET^* 
RETURN. 

NCM 




C0NTINUG „ 

NHAXsilO 

1=1 — 

,PI=11, 

DECl’ce(3,99i IGUF(5) ) 
ifulsf.ts,eq,o> 

FP!RMaT( 13) 

DEcPnE(2,98,I8UF(iO)> 

F 0 RHaT<I 2 > 

„ IF* lRuP(2)'jEO;iS17„ 

NLlNSs59-LlNe 

LSAV = LlNe„__„.,„„ 

XL=NCW*6 

1F(DFlG.EQ, 1) NLlNSsMINS-*! 
lsetssNlin?/xl ■ 

IF(lSETS.GT,0_). KR1TE (3,100* 

“FaRMAT* '0~’» )" 

IF*LSETS,GT|0)_ GB T 0 8 
"line =66 

call BNT 

■ LSF.TSs60/XL"“ ” 

C0NTINUE 

' I F n 9 uF ( 2 n E 0 • »T '")■ 6"<3"-T a T6 

WRItE<3,97> 

F0PMATC 1 ,49Xi •STATTSTTCS RePaRfM"" 

C0NTINUE 

0SETS = 5 

PSEtSkO 

LFLD = ll + 9’«NCH ' " 

IFU8UFI2) ,EQ. »FM LFLPj^l8*9«N'CH__,__ 
J - 1 
RJ = 12 

IF{K,EQ.n G0 T0 6 '' 

CALL CoREndBUF.R.FILE) 

DEC?DF(2,98< 15UF(B) ) " SE'TSR 

if*setsr,eo,o) return 
C0NTI\'U£ 

IF(IBUf(2) ,EQ, »S* ) G0 T0 2^ 

CALL FnAME( IBUF(RJ) ,PFN(PI > * 

CALL P0PnnUF(RJ) ,PP(P1 > » l8yF(2) ) 

CALL SvAmE( IBUF(RJ) iPM(PI ) i 'BijF (2) ) 

CAUL NnTTL(PTL(PI)) 

CALL MGANinBuF(Kj),PM(Pi>,NCH» iBunan 

Yi, 




raRTRAf^ IV^PLUS 
STDATAiFTN 


V 02 - O « 

/ TK {» t 3 CKS/WR 


0357 


irCK.ES.ALSETS) 

0058 


K»K*i 

0059 


IF(J iSO,0SeTS)” 

0060 


I »r>i 

• ^ 3 miK»* « « »■ 

0061 


PI»Fl;'*l9 

.0062 


, IFCvi.sa.ssisRju. 

0063 


J-J*l 

0064 


Rj»Pjt*LFUO 

0065 


GP T0 1 

0066 

9 

KsK-l 

0067 

. 10 

C?NTnA’‘jE’” 

0068 


...„PSETSs?Sp.XS*l„ 

0069 


rFtPSsTS.UEiLS 

0070 

- 'OTpHnanwe 

PScrSal 

0071 


^ IFCCFLG'.eQ.'i)*" 


10113153 

G 0 Ta ' io ' 

G3 T0'9 


O 7 - 0 CT ^77 






GC T 0 20 


30 “ t ¥“ ri ” 


0072 

0073 

0074 

0075 

0076 

0077 

0078 

0079 

oooo 

■’0001 

0082 

0003 

0004 
"0085 

0006 
'0 06 7 
0068 
0069 

0090 

0091 

0092 
"0093 

0094 

0095 

0096 

0097 

0098 
"0099 

0100 

0101 

0102 

0103 

_pi04 

O'iOS 

0106 

0107 

0108 

0109 

0110 
0111 
0112 


G 0 T 0 14 

..IINE»66 ^ 

CALL BNT 

^ LS 5 tSs 60 ./ XI ,. 

Ga 11 

14 C2S'TlNUe__ 

L P‘'E*65 
CALL kNT. _ 

11 C0N'f!NUE 

WRJTS{3,90) , 

90 ' ■ r0PMAT<iWO/» *) 

iF-( ,EO, »s» ) Ga T 0 3 
WRITE<3il01) . (Pr?v(N),N9r,NflAxT 
101 rv*R^UT(lH ,131AU 

wR I Te { 3 , 1 02 ) ( pp a > rwnoTNHA ' y ) 


_„1 0 2 ^ F 2 R ^ A T { 1]1_,„!.C H A L. J... 1 2 2 A 1 { 


WRrTE(3>101) 
G ’' T 2 7 


( PNiNTiNsliMMA '^) 


7 

103’ 


104 


5 

6 


40 

30 


C0MTU-OE 

WRITE(3»101> (PN(N) iNsl,NH0)O 
WRITE<3il02) ■' (PP(N) iNslOiN'; Ay) 

WR I TEC 3i 103) (PTLCN) ,Ns8,N"AxJ_ 
F0RMATC1H T» number' * »122Air ~ 

IW«6 _ _ 
iMaMMAX" 

D0 5 llal.NCH 

WP1TEC3/104) ■ "( I I'.'CPMCN) iWs.lN, lM> V 

P2R^UT{1H i2X, 12,120A1> 

IN=IN^132“““‘ 

lMslM*l32 

continue 

Continue 

'D0 30 fggj;^-^32 

PF(K')=6LANK 

"“■p F N ( N ) •■ B L"aW "■ 

PN(N)sbLANK 

PTL(N)s8LANK 

PP(M)=BLANK 

D0 40 NNsliMCH 

PMCM*(N'N-1)«132)=RLANK 

"caNTiNuE"' • 

Ce'^iTINuE 


OF OUAUTY 



P0'?TRA\ ]\mPl\)S 

stdata.ftn 


V0?»04 

/TR|3u?CKS/WR 


10113152 


D7-ecT«77 


PAOl 


0U3 

IF(K,60il) T0 4 

0U4 ‘ 

ir(K,&o,ALSETS) GO T0 15 ’ 

0U5 

K»K*1 

0116 

Ui 

. 0U7_^ 

Plan 

0119 

GO T2 2 

CU9 . 15 

CO'^’T'.vUE 

0120 

' j F (L I hS , sq/oTTs a v«"o 

0121 .. 

„ U^'6spSETS*XU*LSAV__.,.. 

0122 

CAU 8NT 

0123 ... 

return 

0124 

end 














■»» 


( 

I 



HFPRTRAN JV.tPl.US 

FNAME.rTN /TR|PlUCKS/WR 


,.10«l4t09 ^ .O7-0CT-77^ 


SUBF0UtlN5 FNAMf;(FUD,PN| _ . 

l-MPUClT INTEAERCa-I) 

U^GlCAun Fl.nu).PU<i>|FieUD{6> 
DATA FlELD/lHF,lhIilhlE|iHL»lHp»lH 

D0 11 iin,6._ 

PNdi )«i=^iEUD(m 
p^•^ i*6)»Fi.Dn I ) 

• i £. - I WW* I pii « i f n il - > • m.» 

CaNTlKuE 

RETURN __ _ . 

END 












r 

i 


Mr{*RTRAN IV-OUUS , .. . _ O7-0CT-77„ _ _ ‘ A. 

MDTTliFTN /TR}»L*?CKS/WR 

OCDi SUB-^iTTliSP ML‘TTL(PTL) 

0002 -I^PirriT INTEOePCA-H) 

0003 . „ U.*5!CAi.^l KS0a2>,PTLU> ^ . ... ... 

0004 DAT.-, ‘/SD/lHH,iNE.lMA,lHN,iH ,ln ,iMS,lHTilW , 1^<D , l»r- , IHV/ 


0005 

• •#» » »■ E» !► 

0006 1 
QC07 , . 


D? i 1*1,13 
PTias'-MSDCi ) 
RE?l;R^• 


0008 


END 













( 


HF0RTRAN JV 
MEaNiFTN 

0001 

0002 

0003 

00.04 

0005 

"0006 

0007 

'0008 

0009 

0010 


-PLUS VO?-!j4 10U4J1 

^ ■ 1 wm wm > a > W HI I ■ mi III > | ti » . ■« «M-' I 

/TRs»U?C'-<S/wR 

SUSP SJTIN6 MEAN(FLD,PM,NCW,t.l.GL 
IHPLTriT I,STEGEP(a-2) 
i.v3G I FID ( 1 )j P.M { 1 b FLGj.l b.y, 

LSG-SCaL*! 8LK 

DATA »T/m*/ 

data SIK/IH / 

e - PF-ii ’ _ 

rFcFtG(ir,EQ7’F'»V“' 0FFS18”' 

K»-l _ 

CC 3” jifiNCH 


10 >14; 15 07»»gCT*77 


^ •** •*> 
0012 
0013 


PMt'A*l>=FLn(0FFAl) 

PM<,h'*2)sFLO(0FF*2> 



*0014 

0015 


IF(PM(^n) ,N6i ’ 0 ' ) G0 T0 ^ 
PMCf«*i)sRLK 



‘ 0016 
0017 

. 10- . 

IF(P‘'-(N42>V6n’; *0’ ) PM(N^2laRl.K 
PM( V*3)sFLDUFF*3> 



0016’ 

0019 


PM'C:*'4*4)sPT 
PMC^}*5>bFLD<2FF + 4) 



■■ 0020 
0021 

- 

PH'C\*6)aFLD(0FF^5'/ 

P'MC»^*7)aPLK 



”0022 

0023 


PMnj*6)sFLO(0FF>6) 
PHe^.♦9)=FLD(2Fr + 7) 



0024 

0025 


"lFi:PM(N*6)',N£. »0» ) G0 T0 Tl 

PM«!v*8) = PLK 



0026 

0027 

11 

IFCpH<N + 9)',E0, »0' ) PM(N*9bBl.K 
PPCn*iO)=FLD(0FF*8) 



0028 

0029 


PH'Sn*1D=PT 

PmC.m*i2)sFLD{0FF*9> 



0030 

0031 

3 

0FF*0FF*9 

C0NTlNu£ 



0032 

0033 


RETURN 

END 





i 


) 



HFfRTRAN 1V-PI.US V02-0^ ‘ _ 

P2P.FTN /TR|PL^CkS/KR“"' 

OCOl SUBP^UtIne P0P(FLn 

0002 IMPUICIT INTEGBRU 

0003 .. l.eGlCA(,*l FLD(1)»P 

0004 DATA PaR/1H(i1H)/ 

0005 _BFFs6 

'“‘0C06 " ’lF(FuGTi),eo,'*F» ) ■ 

0007 PP(3)spAR<l) 

0008 D0 1 I3li9 

0009 PPn*3)SFLDn*0FF) 

0010 '1 CBNTI^uE 

OOU PP<9>=PiR<2J„ 

■"’0012 ' ■ ' return' 

0013 END_ 


C 










HFPRTRAN IV 


SNAM6 

OCOt 

0002 

Doo;j 

0004 

0005 , 
'0006* 
0007 
ocoo ■ 
oono 
0010 
00.1,1 

‘ 0012 ' 


FTN 


11 


•PUDS V02-04 

/Ti^lpLi'Ci^S/WR 


lOM-3125 O7^0CT-77 


A'i* 


SUB^H'TtSe SNAHB(FUD<PNiFIG> _ 
1NT6GER(A->H) 

l.?ntCAi.n FLn(l),Pf:(l},SU8tMM» 
04 T A S^*bCt/lHS,lHU,lH5,lHC#^l-LilH 
CFFsn 

» — u— M W — ■ ra»-n « 

1F(FlG(1) .60, ‘F* ) 0FF»7 

DP ll 11=1,6 
PM (I I )nKuPCLn I ) 

PN'M l*6J*FLDni*2FF) 

C.'^MT iNufc 

RGTUr^N 

End . 


FUGdI. 

/ 






HFP!RTRAN IV-PLUS V02-»04 lOU^IgB O7»»0CT*77 

STDMPiFTN /TR|5L^'■CKS/K■R “ 

QCOl SUPRI^UTINE STD'^PMBUF) _ 

0002 implicit INTEGEft(A-i) 

0003 . .... , UMOICaL*! ItJUFd} 

•••■"'' • a n » * - i w *r» T-»M. t'SWK . 11.1 — M «e M 4Mr« US ■' Ills I 

0004 • CiOMMr'N /PCNT/LlNEiPAGE 

0005 C1N(E»66 

■^0006 CALL KNT“ ’ 

0007.. ir(I?uP(2)’,EQ, »F* > G0 T3 L' 

oooa ■ writH{ 6 i 200 )‘ ' ^ ..... ............ . .. 

0009 200 F0PMAT<Sy, 'SUBCLASS STATlSUcS RECORD*) 

0010 G0 TP- 9 

_0011. 8 ■wRIT = (6,20.U_ 

0012 201 Format ( 5X, 'FIELD SfATrSTTc§“¥tc'eRDn ^ " 

0 0.13 9 CKMU'UE 

0014 ' WRlTE{6,202)’‘’'URUF(N),¥33:4r“ 

._0015 202 Fi}RMAT(5X, 'RECnRP SEOi NC. »i2Al> 

0016 WRItE(6,203) (I s^F ( M ) » N^Si 7) 

-.,-0017 203 _ F';{RMAT(5y| 'NC, SUBCLASSES *3Al) 

■ 0018 WR!tF.('6,204)“" TipuF(V)Vns8T‘5)' 

0019 204 F0K.MAT(5y, 'NC, SUBCLASS SE]S '|2Al) 

0020 WR1TE(6,205) ( I PUF ( N' ) i N = 1 0 » U ) " " 

0021 205 FaRMATlSXi *N0,' 0F CHANNELS ’i2Al) 

“"0022 ■ 'UINE-S” — — ■ — — -- 

._0023 .-RETURN 

0024 END 


HFCRTRAN JV 
CA>'HDG,FTN 
0001 
0002 

0003 

0004 

0005 

0006 
0007 

0 0 0 ‘i ■ 1‘ 

0009 

0010 400 

. 00.11 , 

0012 4 Ci 

001.5 


-PLUS V02-5-4 _ 10114133 O7»*0CT»77 

/TRt.HiLf:CKS/viR ■' > 

SU?Sf.*':!TlME CAMUDr,{I3UFiTApNej 

IMP-LiClT IK'TEGftR(A-H> ’ 

L25rCAL*l iDUFfl) ,SEr,NP<4> __ 

UBG-jCAtn PU( 132), BLANK 

Cm ;?\/ SSG / SF.GNia 

DATA 3LA\'K/1H 7 

D3* 1 Ul,4 • 

&cG\^M) = inur7i4 7*ir“‘“ 

WftiTr {6, 400 ) 

FFR «& T (* lt , 49 X.»CAPS iNTPRtACl : REPORT * ) 

W.fi.rr^i('^,401> nf^UF(I>,l33»2A),TAPN3 __ 

T ( IMO , 3X7 » DPAP N't*’, s ' ’ , 24A1 , 57V 7"»'f aTe 
W«rrEf6,4 0?> n~liPn ), 1=7^9, ?14) , MBUF( J). J = 715,72 


0014 

.0015 

0016 

0017 

402 

■■"403 

F0Rm*>t( 1WC,3X, ‘ReCP.RD ID s » , c? A1 , IX, 6A1 ) ' 

WRIT~(6, 403) 

F0PN«AT{iHO,5bx, ' 'acquis ITi" 0N b'ATESM 
WRI,TS(6, 404 ) 

0018 

404 

F^•P^UT(lM ,47X, '!♦ ,6X, *2» '.3» ,6X, MS15X, 

;»*S.£G^‘t^T TYPE') 

0 019 
0020 
■■■"0 021 
0022 

.....11 

D;S 11 Ns 1,132 
PS f,->r3= blank 
RJS148 

CALL MV{ IBUF(RJ) ,PB(3l),4) 

0023 

0024 


IPS47 

PB{'91) = IBUF(RJ*4 ) 

0025 

0026 


RIsRJ+6 
D2 9 Jsl,4 

"0027 

0028 


IFCiauF(RI ) ,E0; 'O' ) G(5 12'X"Q ' - - ».■ . 

CALL PV< IBUF(RI).PP(IP),5> 

0029 

0030 


RI =RI*5 
IP=1P*7 

0031 
0 032 
“ 0033 
0034 

9 

10 
301 

C0?JtIk'CIE ■ '■ 

WRITE(6,301) (PP(K).K=3n,V5) 

F0RhAT(1H ,4X, '#»*«*« SEGPEmT number a»,66Ar) 

RJS174 


0036 

‘0037 

0038 

'0039 

0041' 

0042 

0043 

0044 
'0045 

0046 
To 4 7 

0048 

0049 

0050 

0051 

0052 

0053 

0054 

0055 


D3 12 M=l,132 

■ p 8 { Nj ') sBLANK ‘ " " ■■ ' 

IF( IGUP(RJ) •E0‘, »0» ) G3 T0 4 
call' mV ( I GUF ( RJ) , PB ( 31 fiJ) “ 
PB(91)=IBUF(RJ*4) 

"IP = 47 ■' 

RIcrJ*5 

D0 3 J“sl',"'4 

1F< IBUP{RI ) .EQ‘, ' n » ) G0 T0 4 

CALL MVnBUF(RI>,PB(IP),'5) 

RI=RI*5 

"lP = iPi7 

C0NTINUE 

write ( 6, 300 )' I , (PP(K) ,K = 39»95T 
F0RMATUH ,*TRAP'ING SEGME',';! N0 

RJ = RJ*25 

C0.NTlN'U£ 

C0NTINUE " 

--^ eE-is 


Ml, * 3» ,66Al) 


Uk 0 





HFPRTRAN JV-PLUS V02^0^ 10I.1AM5 O7-0CT-77 

CPIP0.FTN /TRt^Ut'C'<S/WR 

0001 subroutine cPiP^CFLn.cLASSjPi.^a) 

0002 IMPUiCtT INTEGHR(A-7> 

0003 U0G1CAL*! FLD(l) .CLASSd), _ , _ . 

0004 Da 2 1=1,4 

0005 CLASSC t )sFLD(I ) 

’0006 ‘g’ ■ CONTINUE' 

0007 PEcaDS(5,100,rLn(?3) ) P'l 

oooa 100 FaRPAT(I5) 

t 0009 DECPDE(5,l00#FUn(28) ) • PB _ 

0010 return 

0011 END 








HFPRTRAN IV-PLUS V02-P4 . , P Il4i49_ _O7-0CTr77_ 

MViFTN /T'^t'?t»‘CKS/WR 

0001 TJs-E MV(FLn,PO,NC.t 

0002 ■ If-'LfClT IKTEG5R(A*H) 

0003 FLD(U.P n.LU 

0004 DF 6 JsliNC 

0005 S PBtJJaPLDJJJ 

‘0006'“" RETURN 

ODO'7 BKn ,„,J. 





CAMRPT30lASRP|CAMREC»cnRFDiD«TRAV,SEGEXT 

CUURES»STDATA,rNAMH,KfNT,MDTTL,MEAN,PePiS\AMr 

STOMP 


CUURES 
STOMP 
PKT 

CAHHDGiCP]PE3,mV 

Clil3r4Pk'TS/L8 

/ 

UNITSS9 

A3GSLPI6 

// 









